use SurvivalProbability;
use Data::Dumper;
$a = SurvivalProbability->new('abc','bcd');

print $a->add_point('abc',0,.2);
print $a->add_point('abc',1,.4);#.6/.8=.75
print $a->add_point('bcd',0,.1);#x/.9 = .75
print $a->add_point('bcd',1,1-.75*.9);
print Dumper($a);

print $a->is_linear;
print $a->is_constant_cost;
print $a->is_zero_one_prob;
print $a->is_survival_ratio_constant;

